www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_admin_models_zhuantibiao.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->





<SCRIPT LANGUAGE="JavaScript">
<!--
function alertreadme(str,url){
{if(confirm(str)){
location.href=url;
return true;
}return false;}
}
//-->
</SCRIPT>







<script language=javascript>


<%
  biao=trim(request("biao"))
  %>


function AJAXDelnews(tid){



if(!confirm("确认删除?")){
return false;
}


AJAXshowWoking("正在删除,请稍后...");


var a=AJAXcreateXMLHttp();
a.open("post","D_admin_zhuantibiao_xm_Del.asp?biao=<%=biao%>&tid="+tid,true)

a.onreadystatechange=function(){
if (a.readyState==4)
{

AJAXcloseWoking();

//if(a.responseText=="xmlok")
//{
alert("删除成功");
window.location.reload(); 

//}


}
}

a.send(null);


}

</SCRIPT>


<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.STYLE2 {
	color: #FF0000;
	font-weight: bold;
}
.STYLE3 {color: #FF0000}
-->
</style>

<%

  biao=trim(request("biao"))
  %>






<br><br><br>

<a href="D_admin_zhuantibiaoxmAdd.asp?biao=<%=request("biao")%>" class="STYLE3"><font style="font-size:14px; color:#0000FF"><br />
<br />
&nbsp;点击本处添加一个复选项或专题项</font></a><br />
<br />
<br />






<table width="81%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" style="word-break:break-all" bgcolor=#e0e0e0 >
  <tr align="center" class="adminth">
    <th height="26" colspan="3" ><span class="STYLE1"> 专题项管理 或 复选框的复选项管理</span></th>
  </tr>
  <tr align="center" bgcolor="#DEDBEF">

    <td width="17%" height="25" bgcolor="#EEEEEE"><strong>id</strong></td>

    <td width="30%" height="25" bgcolor="#EEEEEE"><strong>专题项或复选项名称</strong></td>

    <td width="53%" bgcolor="#EEEEEE"><strong>操作</strong></td>
  </tr>
  <%
  
  
  
  
  
  
  
  
  
  
	CurrentPage=replacebadchar(request("page"))
	if CurrentPage="" then
	CurrentPage=1
	else if not IsNumeric(CurrentPage) then
	CurrentPage=1
	else if int(CurrentPage)<=0 then
	CurrentPage=1
	else
 	CurrentPage=replacebadchar(request("page"))
 	end if
	end if
	end if
	strFileName="D_admin_models_zhuantibiao.asp"
	maxperpage=15
	openconn()
		 set rs=server.CreateObject("adodb.recordset")
		 rs.open"select * from "&biao&" order by id desc",conn,1,1
		 if not rs.eof then
		rs.pagesize=MaxPerpage
		totalnumber=rs.recordcount
		if totalnumber mod maxperpage=0 then
    	MaxPage= totalnumber \ MaxPerpage
  	else
    	MaxPage= totalnumber \ MaxPerpage+1
  	end if
		if int(CurrentPage)>int(MaxPage) then
		CurrentPage=MaxPage
		else
		CurrentPage=CurrentPage
		end if
		Rs.absolutepage=CurrentPage
		for ni=1 to MaxPerpage
		if rs.eof then exit for
  %>
  <tr onmouseover="this.style.backgroundColor='#F3F3FA';this.style.color='red'" onmouseout="this.style.backgroundColor='';this.style.color=''" align="center">
    

 <td height="25" bgcolor="#FFFFFF"><%=rs("id")%></td>
<td height="25" bgcolor="#FFFFFF"><%=rs("Specialname")%></td>



	<td bgcolor="#FFFFFF"><a href="D_admin_zhuantibiaoEdit.asp?id=<%=rs("id")%>&biao=<%=biao%>">修改</a>&nbsp;&nbsp;&nbsp;<a href="#" onClick="AJAXDelnews(<%=rs("id")%>);">删除</a></td>
  </tr>
  <%
  rs.movenext
		  next
		  else%>
		 <tr>
        <td height="25" colspan="3" align="center" bgcolor="#FFFFFF"><span class="STYLE2">还没有复选项</span>,<a href="D_admin_zhuantibiaoxmAdd.asp?biao=<%=request("biao")%>" class="STYLE3"><font style="font-size:14px; color:#0000FF">点击本处添加一个复选项或专题项</font></a></td>
  </tr>
		  <%end if%>
		          <tr>
        <td height="35" colspan="3" align="center" bgcolor="#FFFFFF" class="showPage"><%call showpage(strFileName,totalnumber,MaxPerPage,flase,true,"条",CurrentPage)%></td>
      </tr>
</table>

<%
rs.close
set rs=nothing
%>